home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 10 / 010.d81 / iq test (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  7.4 KB  |  196 lines
  1. 1 gosub51000
  2. 10 rem *** iq test
  3. 11 rem *** by earl janssen
  4. 12 rem *** c. 1984
  5. 13 rem *** translated for the commodore
  6. 14 rem *** by donna k. woody
  7. 20 poke53280,1:poke53281,0:print"[158]":poke53272,23:printchr$(8)
  8. 30 print"[147]"
  9. 40 dima$(15),q$(16),c$(15),r$(15)
  10. 45 printtab(16)"[201][209] [212][197][211][212]"
  11. 50 printtab(8)"[202]ust how smart are you?"
  12. 54 printtab(12)"by [197]arl [202]anssen"
  13. 56 printtab(6)"[212]ranslated for the [195]ommodore"
  14. 58 printtab(12)"by [196]onna [203]. [215]oody"
  15. 60 print"     [208]ress <[211][208][193][195][197] [194][193][210]> to continue";
  16. 65 getk$:ifk$=""then65
  17. 70 print"[147]"
  18. 100 print"[212]his short '[201][209] [212][197][211][212]' is designed to test"
  19. 101 print"your observation skills and level of"
  20. 102 print"common sense.  [201]t is to be used purely"
  21. 103 print"for your enjoyment or frustration, what-"
  22. 104 print"ever the case may be!"
  23. 110 print"[215]hen inputting your answers, remember"
  24. 111 print"that spelling does count in this test."
  25. 112 print"[213]se numbers whenever possible."
  26. 117 print"     [208]ress <[211][208][193][195][197] [194][193][210]> to continue";
  27. 118 getk$:ifk$=""then118
  28. 120 print"[147][193]nswers will be scored at the end of the"
  29. 121 print"test and you will be provided an"
  30. 122 print"explanation of the correct answer.  [217]ou"
  31. 123 print"will also be rated on your performance."
  32. 130 print"[199]ood [204]uck.  [217]ou will need it!!!"
  33. 140 print"     [208]ress <[211][208][193][195][197] [194][193][210]> to continue";
  34. 145 geta$:ifa$=""then145
  35. 150 print"[147]"
  36. 160 gosub560
  37. 190 forn=1to15:readc$(n):nextn
  38. 200 gosub730
  39. 210 forn=1to15
  40. 220 print"[147]"q$(n)
  41. 230 ifn=15thenprint"[145]"q$(16)
  42. 240 ifn=4thenprint:input"[193]nswer = the ";a$(n):goto260
  43. 250 print:input"[193]nswer = ";a$(n)
  44. 260 nextn
  45. 270 print"[147]"
  46. 280 print"[201]t is now the time of judgement,  [217]ou"
  47. 281 print"will now see exactly how well or poorly"
  48. 282 print"you performed on this simple quiz."
  49. 283 print"[208]repare yourself!"
  50. 290 print"     [208]ress <[211][208][193][195][197] [194][193][210]> to continue";
  51. 295 geta$:ifa$=""then295
  52. 300 forn=1to15
  53. 310 print"[147]"
  54. 320 print"[212]he question"
  55. 330 printq$(n)
  56. 340 ifn=15thenprint"[145]"q$(16)
  57. 350 print"[217]our answer:[146] ";a$(n)
  58. 370 print"[212]he correct answer:[146][160]";c$(n)
  59. 390 ifc$(n)=a$(n)thenc=c+1
  60. 400 print"[212]he reason:[146] ":printr$(n)
  61. 410 print""tab(28)"score = "c"[146]"
  62. 420 print"[208]ress <[211][208][193][195][197] [194][193][210]> to continue";
  63. 425 gett$:ift$=""then425
  64. 430 nextn
  65. 440 print"[147]"
  66. 450 print"[217]ou scored a total of ";c;" correct"
  67. 455 print"answers out of 15 possible for a total"
  68. 457 print"of ";int((c*100)/15);"%"
  69. 460 print"[212]his gives you a rating of:"
  70. 480 ifc=15thenprint"[199][197][206][201][213][211]":goto540
  71. 490 ifc>13thenprint"[201][206][212][197][204][204][201][199][197][206][212]":goto540
  72. 500 ifc>10thenprint"[206]ot too bad":goto540
  73. 510 ifc>7thenprint"[206]ormal":goto540
  74. 520 ifc>4thenprint"[206]eed work":goto540
  75. 530 print"[205]oron":goto540
  76. 540 print"        [208]ress <[211][208][193][195][197] [194][193][210]>";:poke198,0:wait198,1
  77. 541 goto60000
  78. 560 q$(1)="1.  [196]o they have a fourth of [202]uly in        [197]ngland (y/n)?"
  79. 570 q$(2)="2.  [200]ow many birthdays does the average     man have?"
  80. 580 q$(3)="3.  [200]ow many months have 28 days?"
  81. 590 q$="4.  [201]f you had only one match and      "
  82. 591 q1$="     entered a room where there was a  "
  83. 592 q2$="      lamp, an oil heater, and some    "
  84. 593 q3$="       kindling wood, which would you          light first?"
  85. 594 q$(4)=q$+q1$+q2$+q3$
  86. 600 q$="5.  [201]f the doctor gave you three pills  "
  87. 601 q1$="    and told you to take one every half"
  88. 602 q2$="     hour, how long would they last you?"
  89. 603 q3$="     ([193]nswer in terms of whole or      "
  90. 604 q4$="      fractions of hours.)"
  91. 605 q$(5)=q$+q1$+q2$+q3$+q4$
  92. 610 q$="6.  [193] man builds a house with four sides"
  93. 611 q1$="    to it, a rectangular structure.     "
  94. 612 q2$="    [197]ach side has a southern exposure.  "
  95. 613 q3$="    [193] big bear comes wandering by.      "
  96. 614 q4$="    [215]hat color is the bear?"
  97. 615 q$(6)=q$+q1$+q2$+q3$+q4$
  98. 620 q$="7.  [193] farmer had seventeen sheep.  [193]ll  "
  99. 621 q1$="    but nine died.  [200]ow many did he have    left?"
  100. 622 q$(7)=q$+q1$
  101. 630 q$(8)="8.  [196]ivide 30 by 1/2.  [193]dd 10.  [215]hat is     the answer?"
  102. 640 q$="9.  [212]ake two apples from three apples   "
  103. 641 q1$="    and what do you have? ([206]umber of        apples.)"
  104. 642 q$(9)=q$+q1$
  105. 650 q$="10.  [200]ow many animals of each species   "
  106. 651 q1$="     did [205]oses take aboard the ark?"
  107. 652 q$(10)=q$+q1$
  108. 660 q$="11.  [201]s it legal in [206]orth [195]arolina for a"
  109. 661 q1$="     man to marry his widow's sister         (y/n)?"
  110. 662 q$(11)=q$+q1$
  111. 670 q$(12)="12.  [200]ow many cubic feet of dirt is in       a hole 3' x 2' x 2'?"
  112. 680 q$="13.  [193] bottle and a cork cost $1.05.    "
  113. 681 q1$="     [212]he bottle costs $1.00 more than   "
  114. 682 q2$="     the cork.  [200]ow much does the cork       cost?  ([201]n cents.)"
  115. 683 q$(13)=q$+q1$+q2$
  116. 690 q$="14.  [200]ow many outs are there in each    "
  117. 691 q1$="     inning of a baseball game?"
  118. 692 q$(14)=q$+q1$
  119. 700 q$="15.  [193] lake has a surface area of three "
  120. 701 q1$="     square miles.  [196]uring the summer,  "
  121. 702 q2$="     water lilies begin to cover the    "
  122. 703 q3$="     surface of the lake, doubling the  "
  123. 704 q4$="     area of coverage each day.  [201]f     "
  124. 705 q$(15)=q$+q1$+q2$+q3$+q4$
  125. 710 q$="     the entire surface of the lake is  "
  126. 711 q1$="     covered in 60 days.  [200]ow many days "
  127. 712 q2$="     does it take for the lake to be    "
  128. 713 q3$="     half covered with lilies?"
  129. 714 q$(16)=q$+q1$+q2$+q3$
  130. 715 return
  131. 720 datay,1,12,match,1,white,9,70,2,0,n,0,2.5,6,59
  132. 730 q$="[212]he fourth of [202]uly comes after the third"
  133. 731 q1$="of [202]uly in every country around the     "
  134. 732 q2$="world.  [212]he [213].[211]. celebrates [201]ndependence"
  135. 733 q3$="[196]ay on the fourth of [202]uly."
  136. 734 r$(1)=q$+q1$+q2$+q3$
  137. 740 q$="[212]he average man is born only once.  [200]e  "
  138. 741 q1$="may celebrate many anniversaries of     "
  139. 742 r$(2)=q$+q1$+"his birth-day."
  140. 750 q$="[193]ll 12 months of the year have at least "
  141. 751 q1$="28 days in them.  [211]ome just have more   "
  142. 752 r$(3)=q$+q1$+"than that, but none have less."
  143. 760 q$="[201]n order to light any of the items      "
  144. 761 r$(4)=q$+"listed, the match must be lit first."
  145. 770 q$="[212]ake one pill now, one in a half hour   "
  146. 771 q1$="and the third and last pill a half hour "
  147. 772 r$(5)=q$+q1$+"later for a total of one hour."
  148. 780 q$="[201]n order for a rectangular structure to "
  149. 781 q1$="have all four sides facing south, it    "
  150. 782 q2$="must be situated on the north pole.     "
  151. 783 r$(6)=q$+q1$+q2$+"[212]herefore the bear must be a polar bear."
  152. 790 q$="[201]f all but 9 sheep dies, that means that"
  153. 791 r$(7)=q$+"there are 9 sheep alive and 8 dead ones."
  154. 800 q$="[215]hen you divide by 1/2, it is the same  "
  155. 801 q1$="as multiplying by 2 (or have you        "
  156. 802 q2$="forgotton how to cross multiply?).      "
  157. 803 r$(8)=q$+q1$+q2$+"[200]ence the equation is (30*2)+10=70."
  158. 810 q$="[215]hen you take two apples from any total "
  159. 811 q1$="number of apples, you will have the two "
  160. 812 r$(9)=q$+q1$+"apples you took."
  161. 820 r$(10)="[201]t was [206]oah, not [205]oses, who took animalson the ark during the flood."
  162. 830 q$="[193] man who marries his widow's sister    "
  163. 831 r$(11)=q$+"must be dead and there are laws against that!"
  164. 840 r$(12)="[212]here is no dirt in a hole - just air!"
  165. 850 q$="[201]n order for the total bill for the     "
  166. 851 q1$="bottle and the cork to equal $1.05 and  "
  167. 852 q2$="the bottle to cost $1.00 more than the  "
  168. 853 q3$="cork, the bottle must be $1.025 and the "
  169. 854 r$(13)=q$+q1$+q2$+q3$+"cork $ .025."
  170. 860 q$="[197]ach of two teams get 3 outs, therefore "
  171. 861 r$(14)=q$+"there are 6 outs in an inning."
  172. 870 q$="[211]ince the lilies double in area of      "
  173. 871 q1$="coverage each day, the lake is half     "
  174. 872 r$(15)=q$+q1$+"covered one day before it is completely covered."
  175. 880 return
  176. 51000 t$="            ":c=0:c$="":print"[147]":poke53281,0
  177. 51030 printspc(13)""t$:printspc(13)" [201]. [209]. [212]est [146]"
  178. 51051 printspc(13)""t$:print:printtab(18)"by"
  179. 51060 print:printspc(13)"[197]arl [202]anssen"
  180. 51070 print:printspc(12)"[195]opyright 1985"
  181. 51080 print:print:print:print"     [204][207][193][196][211][212][193][210] is not public domain."
  182. 51090 print:print"  [208]lease respect the author's rights."
  183. 51100 print:print"      [208]ress space bar to continue."
  184. 51110 forcc=1to48:getk$:ifk$=" "then51130
  185. 51120 ifcc=1thenprintmid$(c$,c+2,1)"[145][145]";:c=not(c)
  186. 51125 next:goto51100
  187. 51130 printc$:return
  188. 60000 rem   do again?
  189. 60010 print"[147][196]o you want to try again?"
  190. 60020 poke198,0:wait198,1:getk$:ifk$<>"y"andk$<>"n"thenpoke53280,rnd(1)*15:goto60020
  191. 60030 ifk$="y" then run 10
  192. 60040 :
  193. 63000 rem    connect back to l.s.
  194. 63002 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  195. 63004 poke198,0:poke631,13:poke632,13:poke198,2:end
  196.